home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HypertalkTools.cpt / HyperTalk Sampler 1.1 / background_2619.txt < prev    next >
Text File  |  1989-02-26  |  6KB  |  298 lines
  1. -- background: 2619 from stack: in.1
  2. -- bmap block id: 7386
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   resetCard
  9. end openCard
  10.  
  11. on resetCard
  12.   put field "Reset" into field "Script Window"
  13.   put empty into field "Result"
  14.   set script of bkgnd button "Test Button" to field "Script Window"
  15.   set the scroll of field "instructions" to 1
  16.   play "bell" ee ee
  17. end resetCard
  18.  
  19.  
  20.  
  21. -- part 4 (button)
  22. -- low flags: 00
  23. -- high flags: 0000
  24. -- rect: left=471 top=301 right=333 bottom=502
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 27009 / 27009
  27. -- text alignment: 1
  28. -- font id: 0
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: Next
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.   go to next card
  36. end mouseUp
  37.  
  38.  
  39.  
  40. -- part 5 (button)
  41. -- low flags: 00
  42. -- high flags: 0000
  43. -- rect: left=8 top=302 right=333 bottom=40
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 9301 / 9301
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: Prev
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.   go to prev card
  55. end mouseUp
  56.  
  57.  
  58.  
  59. -- part 6 (field)
  60. -- low flags: 01
  61. -- high flags: 0001
  62. -- rect: left=107 top=29 right=58 bottom=418
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 2
  67. -- text size: 18
  68. -- style flags: 0
  69. -- line height: 24
  70. -- part name: Title
  71.  
  72.  
  73. -- part 9 (field)
  74. -- low flags: 00
  75. -- high flags: 0007
  76. -- rect: left=144 top=195 right=324 bottom=472
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 3
  81. -- text size: 9
  82. -- style flags: 0
  83. -- line height: 12
  84. -- part name: Script Window
  85. ----- HyperTalk script -----
  86. on openField
  87.   play "bell" e6t
  88. end openField
  89.  
  90.  
  91.  
  92. -- part 10 (field)
  93. -- low flags: 01
  94. -- high flags: 0007
  95. -- rect: left=47 top=63 right=169 bottom=474
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 2
  100. -- text size: 14
  101. -- style flags: 0
  102. -- line height: 18
  103. -- part name: Instructions
  104.  
  105.  
  106. -- part 13 (field)
  107. -- low flags: 81
  108. -- high flags: 0000
  109. -- rect: left=461 top=52 right=73 bottom=485
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Reset
  118.  
  119.  
  120. -- part 14 (button)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=473 top=240 right=265 bottom=499
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 21700 / 21700
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Home
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   visual effect iris close
  135.   go "home"
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 17 (button)
  141. -- low flags: 80
  142. -- high flags: A002
  143. -- rect: left=480 top=52 right=71 bottom=492
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: S
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   put field "Script Window" into field "Reset"
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part 19 (button)
  160. -- low flags: 00
  161. -- high flags: A003
  162. -- rect: left=45 top=178 right=204 bottom=138
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Test Button
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   play "boing"
  174. end mouseUp
  175.  
  176.  
  177.  
  178.  
  179. -- part 20 (button)
  180. -- low flags: 00
  181. -- high flags: 2000
  182. -- rect: left=479 top=28 right=46 bottom=498
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 1015 / 1015
  185. -- text alignment: 1
  186. -- font id: 3
  187. -- text size: 9
  188. -- style flags: 0
  189. -- line height: 12
  190. -- part name: Reset Card
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   resetCard
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 21 (button)
  199. -- low flags: 00
  200. -- high flags: A002
  201. -- rect: left=52 top=212 right=257 bottom=129
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 29019 / 29019
  204. -- text alignment: 1
  205. -- font id: 3
  206. -- text size: 10
  207. -- style flags: 0
  208. -- line height: 13
  209. -- part name: Send To Button
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   play "bell" c6t ct
  213.   set script of bkgnd button "Test Button" to field "Script Window"
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 22 (button)
  219. -- low flags: 80
  220. -- high flags: A006
  221. -- rect: left=481 top=65 right=83 bottom=511
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: H
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   If visible of bkgnd button "S" is true then
  233.     hide bkgnd button "S"
  234.     set lockText of field "Instructions" to true
  235.     set lockText of field "Title" to true
  236.   else
  237.     show bkgnd button "S"
  238.     set lockText of field "Instructions" to false
  239.     set lockText of field "Title" to false
  240.   end if
  241. end mouseUp
  242.  
  243.  
  244.  
  245. -- part 24 (field)
  246. -- low flags: 00
  247. -- high flags: 0004
  248. -- rect: left=46 top=276 right=323 bottom=136
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 0
  252. -- font id: 3
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: Result
  257.  
  258.  
  259. -- part 27 (button)
  260. -- low flags: 00
  261. -- high flags: 0000
  262. -- rect: left=472 top=270 right=293 bottom=498
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 1012 / 1012
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: New Button
  271. ----- HyperTalk script -----
  272. on mouseUp
  273.   visual wipe right
  274.   go to first card
  275. end mouseUp
  276.  
  277.  
  278.  
  279. -- part 28 (button)
  280. -- low flags: 00
  281. -- high flags: 0000
  282. -- rect: left=473 top=207 right=233 bottom=501
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 25002 / 25002
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: Card Help
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   play "Harpsichord" tempo 380 aq cq bq
  294.   visual zoom open
  295.   go to card id 6823
  296. end mouseUp
  297.  
  298.